//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "HISTORY_PRIB.h"
#include "DMJ.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DBAccess"
#pragma link "IBC"
#pragma link "MemDS"
#pragma resource "*.dfm"
TfrHISTORY_PRIB *frHISTORY_PRIB;
//---------------------------------------------------------------------------
__fastcall TfrHISTORY_PRIB::TfrHISTORY_PRIB(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrHISTORY_PRIB::ESCExecute(TObject *Sender)
{
 frHISTORY_PRIB->Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrHISTORY_PRIB::FormShow(TObject *Sender)
{
dsetHISTORY_PRIB->Close();
dsetHISTORY_PRIB->ParamByName("NOM")->AsInteger=NOM;
dsetHISTORY_PRIB->Open();	
}
//---------------------------------------------------------------------------

